home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1995 November
/
EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso
/
earcd
/
program
/
amos
/
amosprog.lha
/
window.AMOS
/
window.amosSourceCode
Wrap
AMOS Source Code
|
1995-10-02
|
579b
|
40 lines
'Window in standard intuition!!!
Amos To Back
Reserve As Work 17,3000
KUPA=Start(17)
STRU$='Super okienko'
Doke KUPA,160
Doke KUPA+2,50
Doke KUPA+4,340
Doke KUPA+6,100
Doke KUPA+8,1
Doke KUPA+10,0
Doke KUPA+12,0
Doke KUPA+14,0
Doke KUPA+16,$F
Loke KUPA+18,0
Loke KUPA+22,0
Loke KUPA+26,Varptr(STRU$)
Loke KUPA+30,0
Loke KUPA+34,0
Doke KUPA+38,80
Doke KUPA+40,50
Doke KUPA+42,640
Doke KUPA+44,200
Doke KUPA+46,1
'STRU$=STRU$
Areg(0)=KUPA
C=Intcall(-204)
Areg(1)=0
Dreg(0)=100
STRU$='kuion'
Areg(0)=Varptr(STRU$)
C=Gfxcall(-60)
'Wait 100
'C=Intcall(-72)
'Amos To Front
Edit